﻿Public Class frmAutentificarMovCaja 
    Private Sub SimpleButton1_Click(sender As System.Object, e As System.EventArgs) Handles SimpleButton1.Click
        If SeguridadSGS.PermisosPorUsuario(My.Resources.SeguridadSGS.MovimientosCaja, usuario.Text, contrasena.Text) Then
            My.Forms.frmRegistrarMovCaja.ShowDialog()
            'Close()
        Else
            MsgBox("El usuario no tiene permisos para realizar esta acción", MsgBoxStyle.Exclamation, "Notificación")
        End If
    End Sub

    Private Sub frmAutentificarMovCaja_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        usuario.Text = "Usuario"
        contrasena.Text = "Contraseña"
        usuario.Focus()
    End Sub

End Class